home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / fp / ifp_unix.lzh / ifp / fproot / demo / MatMul < prev    next >
Encoding:
Text File  |  1986-10-03  |  156 b   |  12 lines
  1. (*
  2.  * MatMul
  3.  *
  4.  * [matrixA,matrixB] -> matrixAB
  5.  *)
  6. DEF MatMul AS
  7.    {[A,B] := id}
  8.    [A,B|trans] | distr |
  9.    EACH distl |
  10.       EACH Inner END
  11.    END;  
  12.